function yyyymmdd2array(yyyymmdd) result (fecha)
    use iasing_osse
    implicit none
    ! Function arguments
    integer(JPI4), intent(in)   :: yyyymmdd
    integer(JPI4)               :: fecha(3)

    fecha(1) = yyyymmdd / 10000
    fecha(2) = mod(yyyymmdd,10000)/100
    fecha(3) = mod(yyyymmdd, 100)
end function yyyymmdd2array
